DP Tool Club 21/CD_ASCQ_21_040595.iso/dos/prg/pas/swag/strings.swg/0027_Compare Strings.pas

Pascal/Delphi Source File | 1993-08-27 | 337 b | 13 lines

Function CompareStr(Str1, Str1 : String) : Boolean;
begin
  if (Length(Str1) = Length(Str2)) and (Pos(Str1, Str2) <> 0)) then
    CompareStr := True
  else
    CompareStr := False;
end;

Function CompareStrContext(Str1, Str2 : String) : Boolean;
begin
  CompareStrContext := CompareStr(StUpCase(Str1), StUpCase(Str2));
end;